Private Sub ClearTextboxes()
  txtName.Text = ""
  txtPhone.Text = ""
End Sub
